Loadstar 209/209.d81/b.evil wizard

Commodore BASIC | 2001-01-01 | 2.5 KB | 87 lines

1 po=53280:pokepo,0:pokepo-8,23:dim a$(8):s=0:hp=12:w=1:l=0:pokepo+1,0
2 print"[147][152]            [212]he [197]vil [215]izard":print"           (c) pingo in 2001
3 [153]"(NULL)ou have to kill the evil wizard."
6 [153]"(NULL)ou will meet the wizard when you have  status 10 or more."
8 [161]z$:[139]z$[178]""[167]8
11 [129]i[178]1[164]8:[135]a$(i):[130]i:[129]i[178]1[164]6:[135]b$(i):[130]i:w$[178]b$(w)
13 [129]i[178]1[164]3:[135]c$(i):[130]i
15 [137]30
16 [153]"(NULL)ou meet a ";c$(e);" ";a$(d);"."
17 [153]"left$e carries a ";b$(f);".":[153]"left$e has";g;"hit-points."
18 [153]"str$o you (a)ttack, (r)etreat or (q)uit?"
19 [161]z$:[139]z$[178]""[167]19
20 [139]z$[178]"a"[167][137]40
21 [139]z$[178]"r"[167][137]60
22 [139]z$[178]"q"[167]40000
23 [137]19
30 [153]"loadprint#(NULL)tatus: ";s;" (NULL)eapon: ";w$:[153]"left$it-points: ";hp
31 [129]i[178]1[164]40:[153]"tan";:[130]i
32 q[178][181]([187](1)[172]7)[170]1:[139]q[178]1[167]80
33 d[178][181]([187](1)[172]7)[170]1:[139]s[177]10[167]d[178]d[170]1
34 [139]d[178]8[167][137]110
35 e[178][181]([187](1)[172]3)[170]1:f[178][181]([187](1)[172]6)[170]1:g[178][181]([187](1)[172]4)[170]d:gg[178]g
36 [137]16
40 v[178][181]([187](1)[172]5)[170]1
41 [139]v[177][178]4[167]hp[178]hp[171]1
42 [139]v[179]4[167]g[178]g[171]w
43 [139]v[179]4[167][153]"(NULL)ou attack! left$e looses";w;"hit-points!"
44 [139]v[177][178]4[167][153]"left$e attacks you!close(NULL)ou loose 1 hit-point!"
45 [139]hp[178][179]0[167][137]130
46 [139]g[178][179]0[167]50
47 [153]"<any key>"
48 [161]z$:[139]z$[178]""[167]48
49 [137]40
50 [153]"(NULL)ou killed him!":gg[178][181](gg[173]3):[139]l[178]1[167]114
51 [153]"(NULL)ou get";gg;"more hit-points.
52 hp=hp+gg:gosub56
53 print"<any key>"
54 getz$:ifz$=""then54
55 goto 15
56 ife=1thens=s-1
57 ife=2thens=s+1
58 ife=3andgg>10thens=s+1
59 return
60 ife=2then70
61 print"[217]ou escape from the monster."
62 goto53
70 print"[217]ou can't escape from him!"
71 goto40
80 print"[217]ou don't meet anyone."
81 m=int(rnd(1)*4)+1:ifm>1then83
82 goto53
83 ifw=6thengoto53
84 print"[217]ou found a new weapon!"
85 w=w+1:w$=b$(w)
86 goto53
100 data "elf","human","dwarf","thief","goblin","orch","troll","wizard"
101 data "knife","dagger","staff","sword","club","hammer"
102 data "friendly","evil","neutral"
110 print"[217]ou meet the evil wizard!"
111 print"[200]e attacks you![160][200]e has 50 hit-points!"
112 g=50:l=1:goto40
114 print"[147][217]ou killed the evil wizard![160]
115 [153]"(NULL)eople thank you for destroying this
116 print"monster![160][212]he world is safe again!
118 [137] 136
130 [153]"load(NULL)ou fought bravely, but your enemy"
131 [153]"killed you! (NULL)ou got status";s;"."
132 [139] s[179][178]1 [167] s$[178]"very bad"
133 [139] s[179]6 [175] s[177]1 [167] s$[178]"good"
134 [139] s[177]5 [167] s$[178]"very good"
135 [153]"(NULL)hat is ";s$;"."
136 [153]"str$o you want to play again?"
137 [161]z$:[139]z$[178]""[167]137
138 [139]z$[178]"y"[167][138]
139 [137]40000
10000 d[178][194](186):n$[178]"b.evil wizard":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]